Private Sub lst_Click()

    Dim  As Integer
    Dim  As Range
    Dim ڵ As Range

     = lst.ListIndex

    If  > -1 Then

        Set  = Range("B2").CurrentRegion.Columns(1)
        Set ڵ = .Find(What:=lst.Value).Resize(1, 7)
        
        Me.Hide
        
        With frm
            
            .Show vbModeless
        
            .txt.Value = ڵ(1)
            .txt̸.Value = ڵ(2)
            .cmb.Value = ڵ(3)
            .txtֹε.Value = ڵ(4)
            .txt.Value = ڵ(5)
            .txt.Value = ڵ(6)
        
            If ڵ(7) = "" Then
                .opt.Value = True
            Else
                .opt.Value = True
            End If
            
        End With
        
    End If

End Sub